MacWorld 1998 June/Macworld (1998-06).dmg/Shareware World/Utilities/Video/MVEMVC/MyVidEditor 2.1/Scripts Folder/Process all movies Script

Text File | 1998-01-30 | 607b | 22 lines

on open (theItems)
    tell application "MyVidEditor©"
        activate
    end tell
    set isokay to true
    if isokay then
        script processmovieinfolder
            on open (theFile)
                set SourceName to theFile as string
                copy (SourceName & ".cin") to OutName
                with timeout of 100000 seconds
                    -- this "timeout of 100000" prevents a timeout error being generated
                    tell application "MyVidEditor©"
                        set isokay to Compress movie file SourceName to movie file OutName
                    end tell
                end timeout
            end open
        end script
        walk folders theItems with script processmovieinfolder with using files
    end if
end open